!file name=sanmjin.h
      real(NBF),pointer,dimension(:,:) :: sfrt
      real(NBF),pointer,dimension(:,:,:) :: jin
!
      common/sja/sfrt
      common/sjb/jin
